home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 019 (1987-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 019 (1987-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
Quellen
/
play.asm
< prev
next >
Wrap
Assembly Source File
|
1986-10-24
|
2KB
|
80 lines
laenge equ 22400 ;<=== LAENGE DES SOUNDS
Adresse equ $7fc00-laenge
speed equ 280 ;<=== SAMPLING PERIOD
DMACONW EQU $DFF096
ADKCONW EQU $DFF09E
AUD0LCH EQU $DFF0A0
AUD1LCH EQU $DFF0B0
AUD0LEN EQU $DFF0A4
AUD1LEN EQU $DFF0B4
AUD0PER EQU $DFF0A6
AUD1PER EQU $DFF0B6
AUD0VOL EQU $DFF0A8
AUD1VOL EQU $DFF0B8
_AbsExecBase equ 4
_LVOOpenLibrary equ -552
_LVOInput equ -54
_LVOOpen equ -30
_LVOClose equ -36
_LVORead equ -42
Existing: EQU 1005
move.l _AbsExecBase,a6
move.l #DOS_Name,a1
clr.l d0
jsr _LVOOpenLibrary(a6)
move.l d0,a6
tst.l d0
beq Abort
jsr _LVOInput(a6)
move.l d0,StdIn
beq Abort
move.l #FName,a0
clr.b -1(a0,d0.L)
move.l a0,d1
move.l #Existing,d2
jsr _LVOOpen(a6)
move.l d0,FileHandle
bne Display_File
bra Abort
Display_File:
move.l FileHandle,d1
move.l #Adresse,d2
move.l #laenge,d3
jsr _LVORead(a6)
move.l FileHandle,d1
jsr _LVOClose(a6)
MOVE.W #laenge/2,AUD0LEN
MOVE.W #laenge/2,AUD1LEN
MOVE.W #speed,AUD0PER
MOVE.W #speed,AUD1PER
MOVE.W #64,AUD0VOL
MOVE.W #64,AUD1VOL
MOVE.L #Adresse,AUD0LCH
MOVE.L #Adresse,AUD1LCH
MOVE.W #%1000001000000011,DMACONW
clr.l d2
clr.l d3
clr.l d5
Abort:
clr.l d0
rts
SECTION data,DATA
DOS_Name:
dc.b 'dos.library',0
FName:
dc.b 'df0:soundfiles/Skubidab',0 ;<=== FILENAME
SECTION mem,BSS
StdIn ds.l 1
FileHandle:ds.l 1
END